home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 45 / cda45.iso / intro.dxr / scripts_5_Item script.ls < prev    next >
Encoding:
Text File  |  2000-04-18  |  345 b   |  25 lines
  1. property tipo, rect, nivel
  2.  
  3. on new me, miRect, miTipo, miNivel
  4.   tipo = miTipo
  5.   rect = miRect
  6.   nivel = miNivel
  7.   return me
  8. end
  9.  
  10. on execute me
  11.   case me.tipo of
  12.     #carpeta:
  13.       abrirCarpeta(me)
  14.     #programa:
  15.       abrirPrograma(me)
  16.   end case
  17. end
  18.  
  19. on abrirCarpeta me
  20.   dibujarPanel((nivel * 10) + 24, me.rect)
  21. end
  22.  
  23. on abrirPrograma me
  24. end
  25.